home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib16.dsk / FREE LOADER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  31 lines
  1. 10  REM  **********************
  2. 20  REM  * FREE LOADER        *
  3. 30  REM  * BY S. KARATSORIDIS *
  4. 40  REM  * AFTER AN ARTICLE   *
  5. 50  REM  * BY SANDY MOSSBERG  *
  6. 60  REM  * COPYRIGHT (C) 1983 *
  7. 70  REM  * BY MICROSPARC, INC *
  8. 80  REM  * LINCOLN, MA. 01773 *
  9. 90  REM  **********************
  10. 100  HOME 
  11. 110 A$ = "FREE SECTOR COMMAND"
  12. 120  GOSUB 1000
  13. 130 A$ = "BY SANDY MOSSBERG": GOSUB 1000
  14. 140  PRINT : PRINT :A$ = "LOADER PROGRAM BY STAVROS KARATSORIDIS"
  15. 150  GOSUB 1000
  16. 160  VTAB 21: PRINT "** COPYRIGHT 1983 BY MICROSPARC, INC. **"
  17. 170  VTAB 15:A$ = "PRESS ANY KEY TO CONTINUE": INVERSE : GOSUB 1000: NORMAL 
  18. 180  POKE  -16368,0: WAIT  -16384,128: POKE  -16368,0
  19. 190  HOME 
  20. 200  VTAB 3:A$ = "*** INSTALLING 'FREE' COMMAND ***": GOSUB 1000: PRINT : PRINT 
  21. 210  PRINT  CHR$(4);"BLOAD FREE,A$B6B3"
  22. 220 P$ = "A902:46 52 45 C5 00": GOSUB 2000
  23. 230 P$ = "9D54:B2 B6": GOSUB 2000
  24. 240 P$ = "A93F:40 00": GOSUB 2000
  25. 250  PRINT : PRINT "COMMAND INSTALLED."
  26. 999  END 
  27. 1000  HTAB 20 -( LEN(A$)/2): PRINT A$: RETURN 
  28. 2000 P$ = P$ +" N D9C6G"
  29. 2010  PRINT : PRINT P$
  30. 2020  FOR J = 1 TO  LEN(P$): POKE 511 +J, ASC( MID$ (P$,J,1)) +128: NEXT J: POKE 72,0: CALL  -144
  31. 2030  RETURN